DISTLIST
ACCESCODE
@IDNUM
ACCESCODE
0